home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0635.ZIP / SETDATE.INC < prev    next >
Text File  |  1987-07-24  |  557b  |  23 lines
  1. Procedure SetDate(Month,Day,Year,DayOfWeek:Integer);
  2. {  Sets the Date through a DOS call. Parameters are as follows;
  3.      Month   - 1 through 12
  4.      Day     - 1 through 28,29,30,31
  5.      Year    - Year desired
  6.      WeekDay - 0 through 6 for Monday thru Sunday
  7. }
  8. Type
  9.   RegPack = Record
  10.             AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer;
  11.             End;
  12. Var
  13.   Registers : RegPack;
  14. Begin
  15. With Registers do
  16.   Begin
  17.   AX := ($2B shl 8) + DayOfWeek;
  18.   DX := (Month shl 8) + Day;
  19.   CX := Year;
  20.   End;
  21. MSDos(Registers);
  22. End; {SetDate}
  23.